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LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
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LL III BBBBBBBB AAAAAA TITTTITTTT « TITTTTTITTT AAAAAA cccccccc HH HH 

LL 1111 BB AAAAA TTTTTTTTTT TITTTTTTTIT ABAAAA CcCCCCCC =H HH 

LL I] BB BB AA AA TT TT AA AA CC HH HH 

LL I] BB BB AA AA TT TT AA AA CC HH HH 

LL I] BB BB AA AA TT TT AA AA CC HH HH 

LL I] 88 BB AA AA TT TT AA AA CC HH HH 

LL I] BBBBBBBB AA AA TT TT AA cc HHHHHHHHHH 

LL I] BBBBBBBB AA AA TT TT AA AA CC HHHHHHHHHH 

LL I] =} =] BB AAAAAAAAAA TT TT AAAAAAAAAA CC H HH 

LL I] BB BB AAAAAAAAAA TT TT AAAAAAAAAA CC HH HH 

LL I] =} =] BB AA AA TT TT AA AA CC HH HH cove 
LL II BB BB AA Aa TT TT AA AA CC HH HH ceee 
LLLLLLLLLL IIII11 BBBB8BBB AA AA TT TT AA Aa CCCCCCCC HH HH cove 
LLLLLLLLLL III] BBBBBBBB AA AA TT TT AA AA cccccccc =H HH eves 
LL IIII11 SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] $3 

LL I] Ss 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 
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14-Sep- 


ZTITLE "LIBSATTACH = Attach terminal to command subprocess’ 
MODULE LIBSATTACH ( ! 
SDENT = '1-002' ! File: LIBATTACH.B32 Edit: MDL1002 
= 


LIBRTL.S 


BEGIN 


Vee RRR AA AAA AEA AAAAAAAEAAAAEEAEAAA HAKATA AEAAAAAAKRRRE AAA AAe eee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B 
LY IN ACCOR 


E USED AND COPIED 
'® ON ANCE WITH THE TERMS OF SUCH LICENSE AND WITH TH 


® 
% 
* 
* 
* 
* 
E * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'e COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
t® TRANSFERRED. ® 
* 
'@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
t* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. ® 
* 
€ 
* 
* 
* 
® 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ie 
PITTIIIIIIIILILI LLL LLL LLL LLL LLL LLL LLL LLL LLL Litt 
' 

+ 

FACILITY: General Utility Library 

ABSTRACT: 


This module contains LIBSATTACH, a procedure to attach the 
user's terminal to a command subprocess 


ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 15-Dec-1981 
MODIFIED BY: 


1-001 - Original. SBL 15-Dec-1981 
1-002 - Map CLIS_TRMMBX to LIBS_ATTREQREF. MDL 10-Sep-1984 
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eens ode Attach terminal to command subproc 18-Sep-1984 ae eee toate sats That thew c Page 


14-Sep-1984 LIBR TTACH.B52;2 
RSBTTL ‘Declarations’ 


; SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


LINKAGES: 
NONE 
TABLE OF CONTENTS: 


FORWARD ROUTINE 
LIBSATTACH; ' Sample routine 


INCLUDE FILES: 


LIBRARY ‘RTLSTARLE'; ! System symbols, typically from SYS$LIBRARY:STARLET.L32 
REQUIRE ‘RTLIN:RTLPSECT'; ! Define PSECT declarations macros 
REQUIRE ‘RTLML:CLIMSG'; ! CLIS_ messages 


| MACROS: 
NONE 
EQUATED SYMBOLS: 
: NONE 
FIELDS: 
NONE 
PSECTS: 


DECLARE_PSECTS (LIB); ' Declare PSECTs for LIBS facility 


' 
! OWN STORAGE: 
NONE 
EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
SYSSCLI; ' Request CLI callback 


Tr 
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1 sia 1° 
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ab ed 
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AX=-11 Bli 
LIBRTL.SRC 


! Condition an Pe ae 


' Invalid argum 


' No CLI present 


' attach request refused 
' Unexpecte 


CLI error 


EMTS at taen 6S2:2 


N 11 
BSATTACH = Attach terminal to command subproc 16-Sep-1984 00: 32:) AX-1 
BSATTACH = Attach terminal to command subproc 14-Sep-1984 :38:2 


i 1 ZSBTTL "LIBSATTACH = Attach terminal to command subprocess’ 


1 Oh heer te V4.0-74 
LIBRTL.SRCILIBATTACH.832;2 


GLOBAL ROUTINE LIBSATTACH ( 
PROCESS 1D: REF VECTOR C, LONG) ! PID of process to attach to 


+ 
FUNCTIONAL DESCRIPTION: 
LIBSATTACH requests the cath ing process's Command Language Interpreter 
(CLI) to detach the terminal of the calling process and to reattach it 
to a different process. The calling process is put into hibernation. 
It provides the same function as the DCL ATTACH command. 
CALLING SEQUENCE: 
status.wic.v = LIBSATTACH (process_id.rlu.r) 
FORMAL PARAMETERS: 
PROCESS_ID 
The process identification of the process to be attached to, 
passed by reference. The specified process must be part of the 
caller's job. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION STATUS: 


WN “SO VONOUSWN —“OOONOUS 


SS$_NORMAL Normal successful completion 
SS$_NONEXPR Nonexistent process 
L1BS_INVARG Invalid argument 

LIB$_NOCLI No CLI to perform function 
LIBS_ATTREQREF Attach request refused 
LIBS_UNECLIERR Unexpected CLI error 


SIDE EFFECTS: 
The caller's process is put into hibernation and the user's 


terminal is attached to the designated subprocess. When the 
user reattaches to the cailing process, this procedure will return. 
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BEGIN 
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12 
= Attach terminal to command subproc 16-Sep-1984 00:37: 
= Attach terminal to command subprec 1 ~30071 38% 90:35:38 


14 
Check for a valid argument. 
IF NULLPARAMETER (1) 

RETURN LIBS_INVARG; 


1+ 
! Fill in request descriptor 


( CL ISK SRVDESC, CLI 
€LISB_ROTYPE) = CLI$ 
CLISWISERVCOD] = CLI 
CLISL“PIDJ] = PROCES 


RETURN_STATUS = SYSSCLI (CLI_DESC); 


14 
Adjust error return status, if any. 


AX-11 Ol ieee Fy ed 
LIBRTL.SRCJLIBATTACH.B32;2 


! Invalid argument 


IF NOT .RETURN_STATUS AND (.RETURN_STATUS CSTS$V_FAC_NOJ EQL CLI$_FACILITY) 


RETURN STATUS = ( 
SECECTONE »RETURN_STATUS OF 


EcLas_invaeor ved : LIB$_NOCLI; 
CLIS_REFUSED,CLIS_TRMMBX] : 
LIBS_ATTREQREF ; 
COTHERWISE) : LIBS_UNECLIERR; 
TES); 
RETURN .RETURN_STATUS; 
END; ! End of 
TITLE 
- IDENT 
~EXTRN 
~EXTRN 
~EXTRN 
»PSECT 
003C £000 ENTRY 
5E AC AE oe 0002 MOVAB 
6C 95 000 TSTB 


routine LIBSATTACH 


LIBSATTACH LIBSATTACH = Attach terminal to comm 
and subproc 
\1-002\ 


SYS$CLI, LIBS_INVARG 

LIB$_NOCLI, LYB$_ATTREQREF 
LIBS-UNECLIERR 
_LIBSCODE,NOWRT, SHR, PIC,2 


LIBSATTACH Save R2,R3,R4,R5 : 
<B4(SP). SP 


] 
12 | 
IBSATTACH LIBSATTACH = Attach terminal to command subproc 1h-46 -1984 237: AxX-11 Bliss-32 V4.0-74 P 6 
1-002 LIBSATTACH = Attach terminal to command subproc 19=308- 138% 99 3a:08 MYORTL SREILEBAY TAH 89252 spe sf 
05 1 08 BEQL =és«éd18 ; 
04 at D A TSTL  4«AP) : 
0 1 OD BNE : 
50 000000006 &F pO OOF 1$: MOVL #LIBS_INVARG, RO + 0549 
0054 8F 00 bE 00 o i 2$: MOVCS #0, (SP), #0, #84, CLI_DESC + 0555 
6E 08 90 OO001F MOVB #5, CLI_DESC : 055 
01 AE 10 80 2 MOVW #16, CLI_DESC+1 : 055 
04 AE 04 BC D 6 MOVL § @PROCESS"ID, CLI_DESC+4 : 0558 
E DD 00028 PUSHL SP ; 0564 | 
000000006 90 gi Fe 00 D CALLS #1, SYSS$CLI ; 
0 € BLBS § RETURN STATUS . 6$ + 0570 
03 50 0c i FD 00 t CHPZV #16, #12, RETURN_STATUS, #3 : 
00038822 8F 30 D| obe5 CML RETURN_STATUS, #231458 + 0575 
50 000000006 gf 06 004? MOVL #LIBS_NOCLI, RETURN_STATUS : 
000388C2 =sBF 50 D4 OO4F 3$ CPL RETURN_STATUS, #231618 : 0576 
000388F2 8F 93 D} bose CMPL §_RETURN_STATUS, #231666 : 
08 if} 005F BNEO F 
50 00000000G 8F » 4694 4$: mere #LIBS_ATTREQREF, RETURN_STATUS : 
50 000000006 8F DO 00069 5$: MOVL  #LIBS_UNECLIERR, RETURN_STATUS : 0578 
04 00070 6$: RET : 0583 


; Routine Size: 113 bytes, Routine Base: _LIBSCODE + 0000 


s 213 0584 1 !<BLF/PAGE> 


IBSATTACH LIBSATTACH = Attach terminal to command subproc 1b-5¢ Sep- AX-11 Bliss-32 V4.0-74 Page 
41885 LSAT TARR = Attach terminal to command subprec 1 =3eP 7} 38% 99: 3h: i LIBRTL.SRC EBAY TACH B$2:2 
; HE O3be ! END ! End of module LIBSATTACH 
: i$ 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: _LIBSCODE 113. NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

ci eee ee ae ae erst, SyGRO(§ eosccece Pages Processing 

: File Total idaded Percent Mapped Time 

; -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 1 0 581 00:00.7 

H COMMAND QUALIFIERS 

: PL ISE/CHECK OEE SEL, INE TIAL OPTIMIZE) /MOTRACE/L 1894. 15S 0h IBATTACH/OBJ9CR IE sl IBATTACH MSRC$:LIBATTACH/UPDATE=(ENH$:LIBATTACH 


Siz 113 code + 0 data bytes 
Run. Time 00:09.1 


Elapsed Tine: 00:39.8 
Lines/CPU Min: 3887 
Lexemes/CPU-Min: 98523 
peneey Used: 92 pages 
Compilation Complete 


et| 


PMENT CORPORATION | 
AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


02¢ 


